1 GOTO192
2 S=0:P1=3:P2=100
4 LV=.92:F=1
7 PRINT"[147][129]                                       "
8 PRINT"                                       "
9 PRINT"  [146]................[129]    [146]................[129] "
10 PRINT"  [146].[129]   [146].[129]     [146].[129]    [146].[129]    [146].[129]    [146].[129]     [146].[129]   [146].[129] "
11 PRINT"  [146].[129]   [146].[129]     [146].[129]    [146].[129]    [146].[129]    [146].[129]     [146].[129]   [146].[129] "
12 PRINT"  [146].......*[129]  [146]......[129]    [146]......[129]  [146]*.......[129] "
13 PRINT"  [146].[129]      [146].[129]  [146].[129]    [146].[129]    [146].[129]    [146].[129]  [146].[129]      [146].[129] "
15 PRINT"  [146].[129]      [146].[129]  [146].[129]    [146].[129]    [146].[129]    [146].[129]  [146].[129]      [146].[129] "
16 PRINT"  [146].....[129]  [146]....[129]    [146].[129]    [146].[129]    [146]....[129]  [146].....[129] "
17 PRINT"      [146].[129]  [146].[129]     [146]..........[129]     [146].[129]  [146].[129]     "
18 PRINT"      [146].[129]  [146].[129]     [146].[129]        [146].[129]     [146].[129]  [146].[129]     "
19 PRINT"      .[129]  [146].......[129]  [146][158]    [129]  [146].......[129]  [146].     "
20 PRINT"[129]      [146].[129]  [146].[129]     [146].[129]        [146].[129]     [146].[129]  [146].[129]     "
21 PRINT"      [146].[129]  [146].[129]     [146]..........[129]     [146].[129]  [146].[129]     "
22 PRINT"  [146].....[129]  [146]....[129]    [146].[129]    [146].[129]    [146]....[129]  [146].....[129] "
23 PRINT"  [146].[129]      [146].[129]  [146].[129]    [146].[129]    [146].[129]    [146].[129]  [146].[129]      [146].[129] "
24 PRINT"  [146].[129]      [146].[129]  [146].[129]    [146].[129]    [146].[129]    [146].[129]  [146].[129]      [146].[129] "
25 PRINT"  [146].......*[129]  [146]......[129]    [146]......[129]  [146]*.......[129] "
26 PRINT"  [146].[129]   [146].[129]     [146].[129]    [146].[129]    [146].[129]    [146].[129]     [146].[129]   [146].[129] "
27 PRINT"  [146].[129]   [146].[129]     [146].[129]    [146].[129]    [146].[129]    [146].[129]     [146].[129]   [146].[129] "
28 PRINT"  [146]................[129]    [146]................[129] "
29 PRINT"                                       "
30 PRINT"                                       "
31 PRINT"SCORE:[146]";S
32 NX=39:FORNY=1TO22:IFNY<>11THENPOKEFNB(0),160:POKEFNC(0),8
33 NEXTNY:A=0:POKE1063,160:POKE55335,8
34 ZX=65:FORY=1TOGN
35 NX=INT(RND(1)*6+17)
36 NY=11
37 IFFNA(0)<>32GOTO35
38 B(Y)=FNA(0):POKEFNB(0),ZX
39 RX(Y)=NX:RY(Y)=NY:D(Y)=8
40 NEXTY
41 N=O+L+42:N0=N:POKEN,C(15)
42 R=PEEK(56320)AND15:R2=T(R)
46 N0=N+R2
47 N1=PEEK(N0)
48 IFN0=N8THENN0=N0+38:GOTO47
49 IFN0=N9THENN0=N0-38:GOTO47
50 IFN1=160THENN0=N:N1=32
51 IFN1=42THENGOSUB104
52 IFN1=46THENS=S+P1:A=A+1:PRINT"[145]"S
53 IFN1=65GOTO84
54 IFN1=88THEN111
57 Q=N-O
58 PY=INT(Q/L):PX=Q-PY*L
59 U=0:FORY=1TOGN
60 IFRND(1)<LVGOTO68
61 RX=RX(Y):IFRX=0GOTO68
62 NX=RX+SGN(PX-RX)
63 NY=RY(Y)+SGN(PY-RY(Y))
64 C%=FNA(0):IFC%=ZXGOTO68
65 IFC%(C%)THENU=Y:Y=GN:GOTO68
66 SC=O+RX(Y)+L*RY(Y):POKESC,B(Y):POKESC+54272,D(Y)
67 B(Y)=C%:RX(Y)=NX:RY(Y)=NY:D(Y)=PEEK(FNC(0)):POKEFNC(0),7:POKEFNB(0),ZX
68 NEXTY:IFUTHENY=U:GOTO82
69 IFZX=88THENGOSUB123
70 POKEN,32:POKEN0,C(R):POKES1+23,3:IFABS(N1-44)>3THEN75
71 X=129:Y=40:IFN1=42THENX=33:Y=300:POKES1+23,15
72 POKES1+3,0:POKES1+3,X:POKES1,15:FORX=1TOY:NEXT:POKES1+3,128
75 POKES1+23,0:POKEN0,O(R):N=N0
76 IFA<275GOTO42
77 LV=LV-.02-F/50:P1=P1*2:P2=P2+100
78 F=F+1
79 POKES1+23,15:FORX=20TO50:POKES1+3,0:POKES1+3,33:POKES1,X:NEXTX
80 FORX=250TO220STEP-1:POKES1+3,0:POKES1+3,33:POKES1,X:NEXTX
81 GOTO7
82 IFZX=88GOTO116
83 REM SUICIDE
84 POKES1+23,15:FORK=1TO8
85 FORX=30TO80STEP2:POKES1+3,0:POKES1+3,33:POKES1,X:NEXTX
86 IFK/2<>INT(K/2)THEN89
87 PRINT"CAPTURE[146]":POKEN,214:POKES1+3,0:POKES1+3,33:POKES1,15:GOTO90
88 POKES1+3,0:POKES1+3,33:POKES1,158:GOTO90
89 PRINT"CAPTURE":POKEN,86:POKES1+3,0:POKES1+3,33:POKES1,50
90 NEXTK
91 POKES1+23,0
92 PRINT"[147]","  P E T M A N"
93 PRINT,"[129]YOUR SCORE:  "S""
94 IFHS=0THENHS=S:GOTO98
95 IFS>HSTHENPRINT,"[158] A NEW HIGH SCORE! ":HS=S:GOTO98
96 PRINT,"HIGH SCORE:  "HS
98 PRINT"DO YOU WANT TO PLAY AGAIN?"
99 GETW$:IFW$=""THEN99
100 IFW$="N"THENEND
101 IFW$<>"Y"THEN99
102 GOTO2
103 REM EAT A PILL
104 ZX=88:FORY=1TOGN
105 NX=RX(Y):NY=RY(Y):IFNX=0GOTO107
106 POKEFNB(0),ZX
107 NEXTY
108 T0=TI+720
109 RETURN
110 REM CHOMP A GHOST
111 U=0:FORY=1TOGN
112 IFN0=RX(Y)+RY(Y)*L+OTHENU=Y:Y=GN
113 NEXTY:IFUTHENY=U:GOTO116
114 STOP
115 REM: WIPE A GHOST
116 S=S+P2:PRINT"[145]"S
117 PRINT"[145]"S
119 POKES1+23,15:FORX=150TO250STEP6:POKES1+3,0:POKES1+3,33:POKES1,X:NEXTX
120 SC=O+RX(Y)+L*RY(Y):POKESC,B(Y):N0=N:N1=B(Y):POKESC+54272,D(Y):D(Y)=8
121 RX(Y)=0
122 GOTO47
123 IFTI>T0GOTO133
124 Y=T0-TI:IFY>180THEN139
125 IFY>50THEN131
126 FORY=1TOGN:RX=RX(Y):IFRXGOTO130
127 NX=Y+17:NY=11:IFFNA(0)=65GOTO129
128 POKEFNB(0),65
129 POKEFNB(0),160
130 NEXTY
131 POKES1,230:POKES1+14,130:POKES1+23,15:POKES1+3,21:FORY=1TO200:NEXT
132 POKES1+3,20:FORY=1TO200:NEXT:POKES1+14,0:POKES1+23,0:RETURN
133 ZX=65:FORY=1TOGN
134 IFRX(Y)GOTO136
135 RX(Y)=Y+17:RY(Y)=11:B(Y)=160
136 NX=RX(Y):NY=RY(Y)
137 POKEFNB(0),ZX
138 NEXTY
139 RETURN
140 POKE53280,9:POKE53281,9
141 PRINT"[147][142]    [167][207][183][205] [170][183][183]  [183][208][207][183] [182][205]  [206][181]  [206][183][205]  [182][205]  [181]
142 [153]"    THEN(null)AND(null) +TAN    +SGN  ABS (null)(null) INT  (null)ANDSQR  ABS (null) INT
143 PRINT"    [167][180]   [170][175][175]   [170][180]  [182]    [181]  [181] [170]  [182]  [205][181]
145 [153],"DEFWRITTEN FOR THE PET
146 PRINTTAB(17)"BY
147 [153],"PAUL GUMMERSALL
148 PRINT,"[150]ADAPTED FOR THE 64
149 [153][163]17)"BY
150 PRINT,"STEVEN DARNOLD
151 [153],"P.O. BOX 201
152 PRINT,"ALEXANDRA, NEW ZEALAND";
153 FORI=1TO4000:NEXT
157 PRINT"[147]","  P E T M A N"
158 PRINT"[129]EAT THE LITTLE DOTS IN THE MAZE AS FAST
159 [153]"AS YOU CAN.  THERE ARE FOUR GUARDS THAT
160 PRINT"LOOK LIKE THIS: [158][193][129].   IF ONE CATCHES YOU,
161 [153]"YOU ARE FINISHED.
164 PRINT"USE THE JOYSTICK TO MOVE.  IT SHOULD
165 [153]"BE PLUGGED INTO PORT 2.
170 PRINT"PRESS SHIFT[146] FOR MORE INSTRUCTIONS.";:WAIT653,1
172 PRINT"[147]","  P E T M A N
173 [153]"FORYOU CAN TURN THE TABLES ON THE GUARDS BY
174 PRINT"EATING AN ENERGIZER (*[129]).  THEN, FOR TEN
175 [153]"SECONDS THE GUARDS ARE WEAKENED AND YOU
176 PRINT"CAN EAT THEM.  THEY LOOK LIKE THIS [158][216][129].
177 [153]"YOU GET A BIG BONUS FOR EVERY GUARD YOU EAT.
181 PRINT"PRESS SHIFT[146] TO BEGIN.":WAIT653,1,1:WAIT 653,1:RETURN
192 DIM C%(255),C(15),O(15),RX(4),RY(4),T(15)
193 O=1024:S1=54273:L=40:POKE54277,10
194 C%(60)=1:C%(62)=1:C%(22)=1:C%(1)=1:C%(93)=1:C%(64)=1:C%(87)=1:C%(81)=1
195 FORX=5TO15:READC(X):NEXTX:DATA60,22,60,,1,62,62,,1,22,87
196 FORX=5TO15:READO(X):NEXTX:DATA64,93,64,,93,64,64,,93,93,81
198 DEF FNB(Z)=O+NX+L*NY:DEF FNA(Z)=PEEK(FNB(0)):DEF FNC(Z)=54272+FNB(0)
199 GN=4
200 GOSUB140
201 T(13)=L:T(11)=-1:T(7)=1:T(14)=-L:T(9)=L:T(10)=-1:T(5)=1:T(6)=-L
202 N8=O+11*L:N9=N8+39
203 GOTO2